<%

Function salvar_ip(id)

	DIM ip
	
	ip = get_ip()	

	str = "UPDATE usuarios SET "
	str = str & "ip='"&ip&"' "
	str = str & " WHERE id="&id
	Set rsI = conexao_geral.Execute(str)
	
	usuario_registro_gravar get_id(), "I "&ip

End Function

Function IsIp_alterado(id)

	DIM ip
	
	ip = get_ip()
	
	str = "Select ip FROM usuarios where id="&id&" AND ip='"&ip&"'"
	Set rs = conexao_geral.Execute(str)
	
	if rs.eof then

		IsIp_alterado = TRUE	
		
	else

		IsIp_alterado = FALSE		
	
	End If		

End Function

Function get_ip()

	get_ip = Request.ServerVariables("REMOTE_ADDR")

End Function

%>
